4.3.12 (d+e x)^m tan(a+b x+c x^2)^n.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     71417,       1635]
NotebookOptionsPosition[     67712,       1530]
NotebookOutlinePosition[     69512,       1586]
CellTagsIndexPosition[     69469,       1583]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 StyleBox[
  RowBox[{Cell[TextData[StyleBox["Rules for integrands of the form",
    FontFamily->"Arial",
    FontSize->16]], "None"], 
   SuperscriptBox[
    RowBox[{"Tan", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "2"]}]}], "]"}], "n"]}],
  FontSize->16]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.544373142375139*^9, 3.5443731599851637`*^9}, {3.5721095751430073`*^9, 
   3.5721095751430073`*^9}, {3.57578648209792*^9, 3.575786503859958*^9}, 
   3.575786540270422*^9, {3.5757866379421935`*^9, 3.5757866609522343`*^9}, 
   3.5758478960540276`*^9, 3.57584912634415*^9, 3.575849218264279*^9, {
   3.575849275424359*^9, 3.57584927603436*^9}, {3.5758493222644243`*^9, 
   3.5758493249844284`*^9}, 3.6857573548731112`*^9, 3.7062371169566813`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["X:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Tan", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560538357830216*^9, {
   3.5666094807245913`*^9, 3.566609487604601*^9}, {3.566609570594717*^9, 
   3.5666095747147226`*^9}, {3.5666096059647665`*^9, 3.5666096144247785`*^9}, 
   3.5666100086853304`*^9, {3.5764301245247555`*^9, 3.576430125024756*^9}, 
   3.57643082771574*^9, 3.6857571968280716`*^9, {3.7062371930467916`*^9, 
   3.7062371934867926`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, 3.498073933150736*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Tan", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "2"]}]}], "]"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}], "+", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "2"]}]}], "]"}], "n"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.49807390709869*^9, 
   3.4980739228859177`*^9}, {3.576430129134762*^9, 3.5764301348447695`*^9}, {
   3.5764308295557423`*^9, 3.576430831555745*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Tan", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}], "^", "n_."}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Tan", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}], "+", 
        RowBox[{"c", "*", 
         RowBox[{"x", "^", "2"}]}]}], "]"}], "^", "n"}], ",", "x"}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "n"}], "}"}], ",", "x"}], 
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, 3.4980737201323614`*^9, 3.5607266725591016`*^9, {
   3.5607268731093826`*^9, 3.560726875199385*^9}, {3.5764301452447844`*^9, 
   3.5764301602848053`*^9}, {3.5764308352157507`*^9, 
   3.5764308444357634`*^9}, {3.706237516265253*^9, 3.7062375166652536`*^9}, 
   3.7063087006555357`*^9, 3.7123377070477667`*^9, 3.7155494134498143`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Cot", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}], "^", "n_."}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Cot", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}], "+", 
        RowBox[{"c", "*", 
         RowBox[{"x", "^", "2"}]}]}], "]"}], "^", "n"}], ",", "x"}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "n"}], "}"}], ",", "x"}], 
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, 3.4980737201323614`*^9, 3.5607266725591016`*^9, {
   3.5607268731093826`*^9, 3.560726875199385*^9}, {3.5764301452447844`*^9, 
   3.5764301602848053`*^9}, {3.5764308352157507`*^9, 3.5764308538157763`*^9}, 
   3.712337707055767*^9, 3.715549413458815*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}],

Cell[BoxData[
 StyleBox[
  RowBox[{Cell[TextData[StyleBox["Rules for integrands of the form",
    FontFamily->"Arial",
    FontSize->16]], "None"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
   SuperscriptBox[
    RowBox[{"Tan", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "2"]}]}], "]"}], "n"]}],
  FontSize->16]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.544373142375139*^9, 3.5443731599851637`*^9}, {3.5721095751430073`*^9, 
   3.5721095751430073`*^9}, {3.57578648209792*^9, 3.575786503859958*^9}, 
   3.575786540270422*^9, {3.5757866379421935`*^9, 3.5757866609522343`*^9}, 
   3.5758478960540276`*^9, 3.57584912634415*^9, 3.575849218264279*^9, {
   3.575849275424359*^9, 3.57584927603436*^9}, {3.5758493222644243`*^9, 
   3.5758493249844284`*^9}, 3.6857573548731112`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], ")"}], " ", 
    RowBox[{"Tan", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "2"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.5415536021761856`*^9, 3.5415536417690554`*^9}, {3.541553723606799*^9, 
   3.541553727070005*^9}, {3.5415537801724987`*^9, 3.5415538106081514`*^9}, {
   3.5601904604844384`*^9, 3.5601904615608406`*^9}, {3.5605383470002007`*^9, 
   3.560538347490202*^9}, {3.5605392059014034`*^9, 3.5605392060714035`*^9}, {
   3.566609914235198*^9, 3.5666099207652073`*^9}, {3.566609981135292*^9, 
   3.566610005625326*^9}, {3.567624450517342*^9, 3.5676244822321978`*^9}, {
   3.5676248093771725`*^9, 3.567624820983593*^9}, 3.5764302801249733`*^9, {
   3.576443735292633*^9, 3.5764437486326523`*^9}, 3.6857572012183228`*^9, 
   3.706237132286703*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], " ", 
     RowBox[{"Tan", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"2", " ", "c", " ", "d"}], "-", 
        RowBox[{"b", " ", "e"}]}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560538357830216*^9, {
   3.5666094807245913`*^9, 3.566609487604601*^9}, {3.566609570594717*^9, 
   3.5666095747147226`*^9}, {3.5666096059647665`*^9, 3.5666096144247785`*^9}, 
   3.5666100086853304`*^9, 3.5764302859449816`*^9, 3.5764305371453333`*^9, {
   3.576443756762663*^9, 3.576443765202675*^9}, {3.5764438185127497`*^9, 
   3.576443823772757*^9}, 3.6857572018983617`*^9, 3.706237155797737*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"2", " ", "c", " ", "d"}], "-", 
    RowBox[{"b", " ", "e"}]}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, {
   3.497817041950529*^9, 3.4978170441505327`*^9}, {3.497817345560954*^9, 
   3.497817350040961*^9}, {3.5764436386224976`*^9, 3.5764436386224976`*^9}, {
   3.5764438269027615`*^9, 3.576443828092763*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"d", "+", 
     RowBox[{"e", " ", "x"}]}], ")"}], " ", 
   RowBox[{"Tan", "[", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", "x"}], "+", 
     RowBox[{"c", " ", 
      SuperscriptBox["x", "2"]}]}], "]"}], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"e", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"Cos", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}], "+", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "2"]}]}], "]"}], "]"}]}], 
       RowBox[{"2", " ", "c"}]]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.49807390709869*^9, 
   3.4980739228859177`*^9}, {3.576430410155155*^9, 3.5764304152251625`*^9}, {
   3.576430452395214*^9, 3.576430454855218*^9}, {3.5764304976652775`*^9, 
   3.5764304998852806`*^9}, {3.5764438324227695`*^9, 3.5764438325927696`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"d_", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}], "*", 
     RowBox[{"Tan", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "e"}], "*", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"Cos", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}], "+", 
        RowBox[{"c", "*", 
         RowBox[{"x", "^", "2"}]}]}], "]"}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"2", "*", "c", "*", "d"}], "-", 
       RowBox[{"b", "*", "e"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, 3.4980737201323614`*^9, 3.5607266725591016`*^9, {
   3.5607268731093826`*^9, 3.560726875199385*^9}, {3.576430572055382*^9, 
   3.576430607255431*^9}, {3.576430640075477*^9, 3.5764306466354866`*^9}, 
   3.576443788712708*^9, {3.576443837582776*^9, 3.5764438763828306`*^9}, 
   3.7061396760555687`*^9, 3.706237524908266*^9, 3.706308701199567*^9, {
   3.7154579984534435`*^9, 3.7154579989044695`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"d_", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}], "*", 
     RowBox[{"Cot", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"e", "*", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"Sin", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", "x"}], "+", 
        RowBox[{"c", "*", 
         RowBox[{"x", "^", "2"}]}]}], "]"}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"2", "*", "c", "*", "d"}], "-", 
       RowBox[{"b", "*", "e"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, 3.4980737201323614`*^9, 3.5607266725591016`*^9, {
   3.5607268731093826`*^9, 3.560726875199385*^9}, {3.576430572055382*^9, 
   3.576430647805488*^9}, 3.5764437899227095`*^9, {3.576443842852784*^9, 
   3.5764438788828344`*^9}, 3.7062978241043425`*^9, 3.7154580034917316`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], " ", 
     RowBox[{"Tan", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"2", " ", "c", " ", "d"}], "-", 
        RowBox[{"b", " ", "e"}]}], "\[NotEqual]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560538357830216*^9, {
   3.5666094807245913`*^9, 3.566609487604601*^9}, {3.566609570594717*^9, 
   3.5666095747147226`*^9}, {3.5666096059647665`*^9, 3.5666096144247785`*^9}, 
   3.5666100086853304`*^9, 3.5764302859449816`*^9, 3.5764305371453333`*^9, {
   3.576443756762663*^9, 3.576443765202675*^9}, 3.6857572024733944`*^9, 
   3.7062371568477383`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"2", " ", "c", " ", "d"}], "-", 
    RowBox[{"b", " ", "e"}]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.49781695654041*^9, 3.497816973120433*^9}, {
   3.497817041950529*^9, 3.4978170441505327`*^9}, {3.497817345560954*^9, 
   3.497817350040961*^9}, {3.5764436386224976`*^9, 3.5764436386224976`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], ")"}], " ", 
    RowBox[{"Tan", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "2"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"e", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"Cos", "[", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", "x"}], "+", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "2"]}]}], "]"}], "]"}]}], 
        RowBox[{"2", " ", "c"}]]}]}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"2", " ", "c", " ", "d"}], "-", 
     RowBox[{"b", " ", "e"}]}], 
    RowBox[{"2", " ", "c"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"Tan", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.49807390709869*^9, 
   3.4980739228859177`*^9}, {3.576430410155155*^9, 3.5764304152251625`*^9}, {
   3.576430452395214*^9, 3.576430454855218*^9}, {3.5764304976652775`*^9, 
   3.5764304998852806`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"d_.", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}], "*", 
     RowBox[{"Tan", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "e"}], "*", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"Cos", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}], "+", 
         RowBox[{"c", "*", 
          RowBox[{"x", "^", "2"}]}]}], "]"}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "+", " ", "\n", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "*", "c", "*", "d"}], "-", 
        RowBox[{"b", "*", "e"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "c"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"Tan", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}], "+", 
         RowBox[{"c", "*", 
          RowBox[{"x", "^", "2"}]}]}], "]"}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"2", "*", "c", "*", "d"}], "-", 
       RowBox[{"b", "*", "e"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, 3.4980737201323614`*^9, 3.5607266725591016`*^9, {
   3.5607268731093826`*^9, 3.560726875199385*^9}, {3.576430572055382*^9, 
   3.576430607255431*^9}, {3.576430640075477*^9, 3.5764306466354866`*^9}, 
   3.576443788712708*^9, 3.706139688565586*^9, 3.7062375266732683`*^9, 
   3.706308701712596*^9, 3.715458005599852*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"d_.", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}], "*", 
     RowBox[{"Cot", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}], "+", 
       RowBox[{"c_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"e", "*", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"Sin", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}], "+", 
         RowBox[{"c", "*", 
          RowBox[{"x", "^", "2"}]}]}], "]"}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "+", " ", "\n", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "*", "c", "*", "d"}], "-", 
        RowBox[{"b", "*", "e"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "c"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"Cot", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}], "+", 
         RowBox[{"c", "*", 
          RowBox[{"x", "^", "2"}]}]}], "]"}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"2", "*", "c", "*", "d"}], "-", 
       RowBox[{"b", "*", "e"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, 3.4980737201323614`*^9, 3.5607266725591016`*^9, {
   3.5607268731093826`*^9, 3.560726875199385*^9}, {3.576430572055382*^9, 
   3.576430647805488*^9}, 3.5764437899227095`*^9, 3.706297802579111*^9, 
   3.715458007062936*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["x:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], "m"], " ", 
    RowBox[{"Tan", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "2"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{"m", ">", "1"}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560538357830216*^9, {
   3.5666094807245913`*^9, 3.566609487604601*^9}, {3.566609570594717*^9, 
   3.5666095747147226`*^9}, {3.5666096223447895`*^9, 3.566609626074795*^9}, {
   3.566610011555334*^9, 3.5666100126653357`*^9}, {3.567625254258754*^9, 
   3.5676252544771547`*^9}, 3.576430292944991*^9, 3.576431033436028*^9, 
   3.6857572030684285`*^9, 3.7062371332067046`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Note: This rule is valid, but to be useful need a rule for reducing \
integrands of the form ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["x", "m"], " ", 
   RowBox[{"Log", "[", 
    RowBox[{"Cos", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "2"]}]}], "]"}], "]"}]}]]],
 "."
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.4980735583132772`*^9, 3.498073601915354*^9}, {
   3.4980737457008066`*^9, 3.4980737939360914`*^9}, {3.498073971589203*^9, 
   3.498074013475277*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", ">", "1"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.498073490999159*^9, 
   3.498073513135598*^9}, {3.4980738492381887`*^9, 3.4980738534813957`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    RowBox[{"Tan", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "2"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["x", 
          RowBox[{"m", "-", "1"}]], " ", 
         RowBox[{"Log", "[", 
          RowBox[{"Cos", "[", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", "x"}], "+", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "2"]}]}], "]"}], "]"}]}], 
        RowBox[{"2", " ", "c"}]]}]}]}]}]}], "-", 
  RowBox[{
   FractionBox["b", 
    RowBox[{"2", " ", "c"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", 
      RowBox[{"m", "-", "1"}]], " ", 
     RowBox[{"Tan", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{"m", "-", "1"}], 
    RowBox[{"2", " ", "c"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", 
      RowBox[{"m", "-", "2"}]], " ", 
     RowBox[{"Log", "[", 
      RowBox[{"Cos", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}], "+", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "2"]}]}], "]"}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, 3.4980734706411233`*^9, 
   3.498073536410839*^9, {3.4980738391137705`*^9, 3.4980738651970167`*^9}, {
   3.4980741722891254`*^9, 3.4980741792291346`*^9}, {3.4980742619192505`*^9, 
   3.4980742623292513`*^9}, 3.5666097203349266`*^9, {3.567625231467114*^9, 
   3.567625239454328*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x_", "^", "m_"}], "*", 
      RowBox[{"Tan", "[", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", "x_"}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ",
    ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       RowBox[{"x", "^", 
        RowBox[{"(", 
         RowBox[{"m", "-", "1"}], ")"}]}]}], "*", 
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"Cos", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}], "+", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], "]"}], "]"}], "/", 
       RowBox[{"(", 
        RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "-", " ", "\n", "  ", 
     RowBox[{
      RowBox[{"b", "/", 
       RowBox[{"(", 
        RowBox[{"2", "*", "c"}], ")"}]}], "*", 
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{"m", "-", "1"}], ")"}]}], "*", 
         RowBox[{"Tan", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}], "+", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}], " ", 
     "+", " ", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"m", "-", "1"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"2", "*", "c"}], ")"}]}], "*", 
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{"m", "-", "2"}], ")"}]}], "*", 
         RowBox[{"Log", "[", 
          RowBox[{"Cos", "[", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", "x"}], "+", 
            RowBox[{"c", "*", 
             RowBox[{"x", "^", "2"}]}]}], "]"}], "]"}]}], ",", "x"}], 
       "]"}]}]}], " ", "/;", "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}], " ", "&&",
      " ", 
     RowBox[{"GtQ", "[", 
      RowBox[{"m", ",", "1"}], "]"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, 3.4980734370230646`*^9, 3.4980737273395743`*^9, {
   3.560726680619113*^9, 3.560726682089115*^9}, {3.560726881319394*^9, 
   3.5607268867294016`*^9}, 3.706237529193272*^9, 3.7063087021906233`*^9, 
   3.7154580202716913`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x_", "^", "m_"}], "*", 
      RowBox[{"Cot", "[", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", "x_"}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ",
    ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", 
       RowBox[{"(", 
        RowBox[{"m", "-", "1"}], ")"}]}], "*", 
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"Sin", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}], "+", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "2"}]}]}], "]"}], "]"}], "/", 
       RowBox[{"(", 
        RowBox[{"2", "*", "c"}], ")"}]}]}], " ", "-", "\n", "  ", 
     RowBox[{
      RowBox[{"b", "/", 
       RowBox[{"(", 
        RowBox[{"2", "*", "c"}], ")"}]}], "*", 
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{"m", "-", "1"}], ")"}]}], "*", 
         RowBox[{"Cot", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", "x"}], "+", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}], " ", 
     "-", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"m", "-", "1"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"2", "*", "c"}], ")"}]}], "*", 
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{"m", "-", "2"}], ")"}]}], "*", 
         RowBox[{"Log", "[", 
          RowBox[{"Sin", "[", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", "x"}], "+", 
            RowBox[{"c", "*", 
             RowBox[{"x", "^", "2"}]}]}], "]"}], "]"}]}], ",", "x"}], 
       "]"}]}]}], " ", "/;", "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}], " ", "&&",
      " ", 
     RowBox[{"GtQ", "[", 
      RowBox[{"m", ",", "1"}], "]"}]}]}]}], "*)"}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, 3.4980734370230646`*^9, 3.4980737273395743`*^9, {
   3.4980743666293974`*^9, 3.4980743666293974`*^9}, 3.498075848111471*^9, {
   3.560726683509117*^9, 3.560726684959119*^9}, {3.560726888159404*^9, 
   3.5607268929994106`*^9}, 3.715458020287692*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["X:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
    SuperscriptBox[
     RowBox[{"Tan", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}], "+", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "2"]}]}], "]"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560538357830216*^9, {
   3.5666094807245913`*^9, 3.566609487604601*^9}, {3.566609570594717*^9, 
   3.5666095747147226`*^9}, {3.5666096059647665`*^9, 3.5666096144247785`*^9}, 
   3.5666100086853304`*^9, {3.5764301245247555`*^9, 3.576430125024756*^9}, 
   3.57643082771574*^9, {3.576430901395843*^9, 3.5764309124758587`*^9}, 
   3.6857572036274605`*^9, 3.706237133946706*^9, {3.706237186326782*^9, 
   3.706237187506784*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, 3.498073933150736*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
   SuperscriptBox[
    RowBox[{"Tan", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}], "+", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "2"]}]}], "]"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], ")"}], "m"], 
       SuperscriptBox[
        RowBox[{"Tan", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}], "+", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "2"]}]}], "]"}], "n"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.49807390709869*^9, 
   3.4980739228859177`*^9}, {3.576430129134762*^9, 3.5764301348447695`*^9}, {
   3.5764308295557423`*^9, 3.576430831555745*^9}, {3.5764309275558796`*^9, 
   3.5764309291458817`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"Tan", "[", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", "x_"}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], "]"}], "^", "n_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", "*", "x"}]}], ")"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"Tan", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}], "+", 
         RowBox[{"c", "*", 
          RowBox[{"x", "^", "2"}]}]}], "]"}], "^", "n"}]}], ",", "x"}], "]"}],
    " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n"}], 
      "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, 3.4980737201323614`*^9, 3.5607266725591016`*^9, {
   3.5607268731093826`*^9, 3.560726875199385*^9}, {3.5764301452447844`*^9, 
   3.5764301602848053`*^9}, {3.5764308352157507`*^9, 
   3.5764308444357634`*^9}, {3.5764309541559167`*^9, 3.576430980575954*^9}, {
   3.5764328377685537`*^9, 3.576432838828555*^9}, 3.706237532683277*^9, 
   3.70630870265565*^9, 3.7123377071117706`*^9, 3.7155494135088177`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"Cot", "[", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", "x_"}], "+", 
        RowBox[{"c_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], "]"}], "^", "n_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", "*", "x"}]}], ")"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"Cot", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}], "+", 
         RowBox[{"c", "*", 
          RowBox[{"x", "^", "2"}]}]}], "]"}], "^", "n"}]}], ",", "x"}], "]"}],
    " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n"}], 
      "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, 3.4980737201323614`*^9, 3.5607266725591016`*^9, {
   3.5607268731093826`*^9, 3.560726875199385*^9}, {3.5764301452447844`*^9, 
   3.5764301602848053`*^9}, {3.5764308352157507`*^9, 
   3.5764308538157763`*^9}, {3.5764309652359324`*^9, 
   3.5764309868259625`*^9}, {3.57643284195856*^9, 3.5764328427785606`*^9}, 
   3.712337707119771*^9, 3.7155494135178185`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1908, 946},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[
     StyleBox[
      RowBox[{
       "Rules", " ", "for", " ", "integrands", " ", "of", " ", "the", " ", 
        "form", " ", "(", "d", "+", "e", " ", "x", ")", "^", "m", " ", "tan", 
        "(", "a", "+", "b", " ", "x", "+", "c", " ", "x", "^", "2", ")", "^", 
        "n"}], FontFamily -> "Arial"]], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{792, 612},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->{{28.8, 41.976}, {28.8, 28.8}}},
Magnification->1.399999976158142,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 2248, 40, 45, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2818, 64, 3376, 55, 53, "Subsubtitle"],
Cell[6197, 121, 1033, 14, 48, "Subsubsection"],
Cell[7233, 137, 1572, 35, 74, "Subsubtitle"],
Cell[8808, 174, 771, 11, 48, "Subsubsection"],
Cell[9582, 187, 1509, 36, 145, "Code"],
Cell[11094, 225, 1429, 35, 159, "Code"],
Cell[12526, 262, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[12630, 267, 89, 2, 25, "Subsubsection"],
Cell[12722, 271, 2332, 44, 45, "Subsubtitle"],
Cell[CellGroupData[{
Cell[15079, 319, 2486, 44, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[17590, 367, 3851, 69, 74, "Subsubtitle"],
Cell[21444, 438, 1178, 22, 50, "Subsubsection"],
Cell[22625, 462, 1752, 39, 92, "Subsubtitle"],
Cell[24380, 503, 771, 11, 48, "Subsubsection"],
Cell[25154, 516, 1919, 48, 145, "Code"],
Cell[27076, 566, 1775, 45, 159, "Code"],
Cell[28854, 613, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[28980, 620, 3808, 69, 74, "Subsubtitle"],
Cell[32791, 691, 1129, 21, 50, "Subsubsection"],
Cell[33923, 714, 2139, 54, 92, "Subsubtitle"],
Cell[36065, 770, 771, 11, 48, "Subsubsection"],
Cell[36839, 783, 2355, 64, 180, "Code"],
Cell[39197, 849, 2238, 62, 194, "Code"],
Cell[41438, 913, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[41576, 921, 3705, 65, 53, "Subsubtitle"],
Cell[45284, 988, 813, 20, 54, "Subsubsection"],
Cell[46100, 1010, 1186, 20, 36, "Subsubsection"],
Cell[47289, 1032, 2671, 69, 162, "Subsubtitle"],
Cell[49963, 1103, 771, 11, 48, "Subsubsection"],
Cell[50737, 1116, 2866, 81, 215, "Code"],
Cell[53606, 1199, 2850, 80, 229, "Code"],
Cell[56459, 1281, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[56585, 1288, 3558, 60, 53, "Subsubtitle"],
Cell[60146, 1350, 1033, 14, 48, "Subsubsection"],
Cell[61182, 1366, 1858, 44, 74, "Subsubtitle"],
Cell[63043, 1412, 771, 11, 48, "Subsubsection"],
Cell[63817, 1425, 1914, 48, 145, "Code"],
Cell[65734, 1475, 1870, 48, 159, "Code"],
Cell[67607, 1525, 89, 2, 48, "Subsubsection"]
}, Closed]]
}
]
*)

(* End of internal cache information *)